1 poke53280,0:poke53281,11:sc=0:c$=" {blk}{cbm-d}{lblu}{cbm-p}{blk}{cbm-f} {down}{5 left} {lblu}{cbm-r}{rvon}C{rvof}{cbm-r} {down}{5 left} {blk}{rvon} {rvof}{lblu}{cbm-u}{blk}{rvon} {rvof} {2 up}{5 left}"
2 x=18:fori=0to62step3:poke832+i,0:poke833+i,255:poke834+i,0:next:v=53248:poke2040,13
3 pokev,172:pokev+1,0:pokev+21,1:pokev+28,0:pokev+39,7:pokev+27,1:c=172:d=0:print"{blk}{clr}";
4 fori=0to960step40:poke1024+i,66:poke1054+i,66:next
5 print"{home}{down}"spc(32)"{lblu}score:{down}{7 left}{wht} ";sc;:print"{home}{16 down}"spc(x)c$;
6 j=peek(56320):pokev+1,d:d=d+10:ifd>255thenprint"{clr}game over, score:"sc:pokev+21,0:end
7 ifpeek(v+31)>0thend=0:sc=sc+1:pokev+1,0:pokev+31,0:c=rnd(1)*224+24:pokev,c:goto5
8 ifx>1and(jand4)=0thenx=x-1:print"{left}"c$;:goto6
9 ifx<25and(jand8)=0thenx=x+1:print"{rght}"c$;:goto6
10 goto6
